object Growth: TGrowth Left = 181 Top = 112 BorderStyle = bsDialog Caption = 'Growth Information' ClientHeight = 410 ClientWidth = 507 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 16 object TabbedNotebook1: TTabbedNotebook Left = 0 Top = 0 Width = 507 Height = 410 Align = alClient TabsPerRow = 4 TabFont.Color = clBlue TabFont.Height = -12 TabFont.Name = 'MS Sans Serif' TabFont.Style = [] TabOrder = 1 object TTabPage Left = 4 Top = 24 Caption = 'Growth Log' object Label1: TLabel Left = 16 Top = 16 Width = 35 Height = 19 Caption = 'Date' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 112 Top = 16 Width = 50 Height = 19 Caption = 'Height' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 208 Top = 16 Width = 53 Height = 19 Caption = 'Weight' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 8 Top = 344 Width = 67 Height = 24 Caption = 'Growth' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Image3: TImage Left = 312 Top = 48 Width = 169 Height = 249 Picture.Data = {} end object GrowthLog: TMemo Left = 8 Top = 40 Width = 297 Height = 289 Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'Empty') ParentFont = False TabOrder = 0 end object BitBtn1: TBitBtn Left = 360 Top = 336 Width = 25 Height = 31 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BitBtn1Click Kind = bkHelp Margin = 2 Spacing = -1 end end object TTabPage Left = 4 Top = 24 Caption = 'Growth Entries' object Image4: TImage Left = 336 Top = 168 Width = 89 Height = 137 Picture.Data = {} end object Label5: TLabel Left = 8 Top = 344 Width = 67 Height = 24 Caption = 'Growth' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object GroupBox1: TGroupBox Left = 8 Top = 8 Width = 473 Height = 129 TabOrder = 1 object Label8: TLabel Left = 408 Top = 91 Width = 49 Height = 14 Alignment = taCenter Caption = 'Record' Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = 400 Top = 24 Width = 65 Height = 81 end object Label9: TLabel Left = 408 Top = 27 Width = 49 Height = 14 Alignment = taCenter Caption = 'Delete' Font.Color = clRed Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 240 Top = 8 Width = 93 Height = 19 Caption = 'Date Search' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 28 Top = 24 Width = 41 Height = 19 Alignment = taRightJustify Caption = 'Date:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 10 Top = 88 Width = 59 Height = 19 Alignment = taRightJustify Caption = 'Weight:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 13 Top = 56 Width = 56 Height = 19 Alignment = taRightJustify Caption = 'Height:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Height: TLabel Left = 92 Top = 56 Width = 9 Height = 19 Alignment = taRightJustify Caption = '0' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object WtLbs: TLabel Left = 92 Top = 88 Width = 9 Height = 19 Alignment = taRightJustify Caption = '0' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label16: TLabel Left = 116 Top = 56 Width = 41 Height = 16 Caption = 'inches' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label17: TLabel Left = 116 Top = 88 Width = 22 Height = 16 Caption = 'lbs.' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Left = 188 Top = 88 Width = 19 Height = 16 Caption = 'oz.' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object WtOz: TLabel Left = 164 Top = 88 Width = 9 Height = 19 Alignment = taRightJustify Caption = '0' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object SpeedButton1: TSpeedButton Left = 192 Top = 24 Width = 25 Height = 25 Hint = 'Previous Entry' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000333 3333333333777F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333FF7F7FFFF333333000090000 3333333777737777F333333099999990333333373F3333373333333309999903 333333337F33337F33333333099999033333333373F333733333333330999033 3333333337F337F3333333333099903333333333373F37333333333333090333 33333333337F7F33333333333309033333333333337373333333333333303333 333333333337F3333333333333303333333333333337333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton1Click end object SpeedButton3: TSpeedButton Left = 192 Top = 48 Width = 25 Height = 25 Hint = 'Next Entry' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333303333 333333333337F33333333333333033333333333333373F333333333333090333 33333333337F7F33333333333309033333333333337373F33333333330999033 3333333337F337F33333333330999033333333333733373F3333333309999903 333333337F33337F33333333099999033333333373333373F333333099999990 33333337FFFF3FF7F33333300009000033333337777F77773333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F33333333333309033333333333337F7F333333333333090333 33333333337F7F333333333333000333333333333377733333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = SpeedButton3Click end object DelButton: TSpeedButton Left = 408 Top = 40 Width = 49 Height = 49 Glyph.Data = { 26020000424D260200000000000076000000280000001C0000001B0000000100 040000000000B0010000CE0E0000D80E00000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666 66666666676666660000666666666666666666667B101B160000666666666666 66666667B101B1B600006666666666666666667B101B1B060000666666666666 666667B101B1B0B6000066666666666666667B101B1B0B060000666666666666 66670101B1B0B00600006666666666666672001B1B0B00060000666666666666 67022201B0B0000600006666666666667B0022000B0000660000666666666667 B1B10220B0000666000066666666667B1B1B0020000066660000666666666701 B1B1B0200006666600006666666672001B1B1000006666660000666666670222 01B1B000066666660000666666780022001B00006666666600006666678D8D02 20B0000666666666000066667008D800200000666666666600006667FDF08D80 20000666666666660000667FDFD0D8D00000666666666666000067FDFDF00D80 0006666666666666000067DFDFDF08000066666666666666000060FDFDFD0000 06666666666666660000600FDFDF000066666666666666660000600DFDF00006 6666666666666666000060000000006666666666666666660000660000000666 66666666666666660000} OnClick = DelButtonClick end object EntryDate: TLabel Left = 88 Top = 24 Width = 64 Height = 19 Caption = '__-__-__' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object DateSearch: TComboBox Left = 240 Top = 32 Width = 145 Height = 26 TabStop = False Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ItemHeight = 18 ParentFont = False TabOrder = 0 OnClick = DateSearchClick end end object Group99: TGroupBox Left = 40 Top = 144 Width = 241 Height = 193 Caption = 'New Entry' Font.Color = clYellow Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = True object Label21: TLabel Left = 36 Top = 32 Width = 41 Height = 19 Alignment = taRightJustify Caption = 'Date:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 21 Top = 64 Width = 56 Height = 19 Alignment = taRightJustify Caption = 'Height:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label23: TLabel Left = 18 Top = 96 Width = 59 Height = 19 Alignment = taRightJustify Caption = 'Weight:' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label24: TLabel Left = 132 Top = 72 Width = 41 Height = 16 Caption = 'inches' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label25: TLabel Left = 132 Top = 104 Width = 22 Height = 16 Caption = 'lbs.' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label26: TLabel Left = 204 Top = 104 Width = 19 Height = 16 Caption = 'oz.' Font.Color = clBlue Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object NewDate: TMaskEdit Left = 95 Top = 32 Width = 90 Height = 26 EditMask = '!99-99-00;1;_' Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [] MaxLength = 8 ParentFont = False TabOrder = 0 Text = ' - - ' end object NewHeight: TEdit Left = 96 Top = 64 Width = 33 Height = 26 Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 end object NewWtLbs: TEdit Left = 96 Top = 96 Width = 33 Height = 26 Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 end object NewWtOz: TEdit Left = 168 Top = 96 Width = 33 Height = 26 Font.Color = clBlue Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 end object BitBtn5: TBitBtn Left = 32 Top = 136 Width = 177 Height = 41 Caption = 'Add Entry' Font.Color = clBlue Font.Height = -21 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = BitBtn5Click end end object BitBtn3: TBitBtn Left = 360 Top = 336 Width = 25 Height = 31 Caption = ' ' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BitBtn3Click Kind = bkHelp Margin = 2 Spacing = -1 end end end object BitBtn2: TBitBtn Left = 400 Top = 360 Width = 93 Height = 31 Caption = 'Close' Default = True Font.Color = clGreen Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = BitBtn2Click Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000CE0E0000D80E00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555205555555555555222055555555555522205555 5555555222220555555555222222055555555722052220555555720555522055 5555555555522205555555555555220555555555555552205555555555555572 0555555555555557205555555555555552205555555555555555} Margin = 8 Spacing = -1 end end